#!/usr/bin/perl

=head1 NAME

Test cases fpr AFX::Process

=cut

##############################################################################
# Globals
#
use lib 'lib';
use strict;
use warnings;

use Test;

## BEGIN block
BEGIN { plan tests => 3 }

## Load module
use AFX::ACF;
use AFX::ASF;
use AFX::Process;

## Helpful notes.  All note-lines must start with a "#".
print "# Checking AFX::Process version $AFX::Process::VERSION\n";

## Open ACF
my $acf = new AFX::ACF;

## Set Site's identifier
my $site_id = $acf->open_sitefile();

## Open ASF
my $asf = new AFX::ASF( $acf, $site_id );

## Create Process
my $process = new AFX::Process( $acf, $asf, 'config' );

## Add machine for processing
ok(!$process->add_machine());

## Try to execute process
ok(!$process->execute());

## Get Processing Site
ok($process->get_site(), 'TEST');
